Computer Select (Limited Edition)/Computer Select.iso/pcmag/v10n16/menudemo.pas

Pascal/Delphi Source File | 1991-08-27 | 588 b | 23 lines

PROGRAM MenuDemo;
USES MenuUnit, Crt;
VAR
  Choice   : Integer;
  M        : BBMenu;
BEGIN
  M.Init(25, 7, 18);
  M.AddPrompt('Open a new file');
  M.AddPrompt('Existing file');
  M.AddPrompt('Close a file');
  M.AddPrompt('Quit');
  Choice := M.GetChoice;
  GotoXY(1, 24); ClrEOL;
  CASE Choice OF
    0 : WriteLn('No choice was made');
    1 : WriteLn('Procedure NewFile should be called');
    2 : WriteLn('Procedure ExistingFile should be called');
    3 : WriteLn('Procedure CloseFile should be called');
    4 : WriteLn('Quitting ...');
  END;
  M.Done;
END.